home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / CIRCLES.MOD < prev    next >
Text File  |  1989-01-18  |  676b  |  35 lines
  1.                                         (* Chapter 13 - Program 4 *)
  2. IMPLEMENTATION MODULE Circles;
  3.  
  4. PROCEDURE GetPi(VAR Pi : REAL);
  5. BEGIN
  6.    Pi := 3.14159;
  7. END GetPi;
  8.  
  9. PROCEDURE AreaOfCircle(Radius : REAL; VAR Area : REAL);
  10. VAR Pie : REAL;
  11. BEGIN
  12.    GetPi(Pie);
  13.    Area := Pie * Radius * Radius;
  14. END AreaOfCircle;
  15.  
  16. PROCEDURE PerimeterOfCircle(Radius : REAL; VAR Perim : REAL);
  17. VAR Cake : REAL;
  18. BEGIN
  19.    GetPi(Cake);
  20.    Perim := 2.0 * Cake * Radius;
  21. END PerimeterOfCircle;
  22.  
  23. BEGIN            (* IMPLEMENTATION MODULE body, empty in this case *)
  24. END Circles.
  25.  
  26.  
  27.  
  28.  
  29. (* Result of execution
  30.  
  31. (An implementation module cannot be executed alone.)
  32.  
  33. *)
  34.  
  35.